home *** CD-ROM | disk | FTP | other *** search
/ HeiBe Erotik / HeiBe Erotik.iso / erovoll / dice / dice3.dir / 00052_Script_52 < prev    next >
Text File  |  1979-12-31  |  1KB  |  33 lines
  1. on AusgewΣhlte_setzen
  2.   global AusgewΣhlte, AktGewΣhlt, GewΣhltWurf, WurfWerte, WurfWahl, WahlStatus
  3.   if WahlStatus=0 then exit
  4.   set AusgewΣhlte=AusgewΣhlte+1
  5.   setAt GewΣhltWurf, AusgewΣhlte, AktGewΣhlt
  6.   setAt WurfWahl, AktGewΣhlt,1
  7.   set TempWert=value(getAt(WurfWerte, AktGewΣhlt))+66
  8.   set the member of sprite 49+AusgewΣhlte=member TempWert
  9.   set the visible of sprite 39+AktGewΣhlt to false
  10.   set the visible of sprite 44+AktGewΣhlt to false
  11.   set the visible of sprite 49+AusgewΣhlte to true
  12.   --set the member of sprite 9 to member (56+AusgewΣhlte) of castlib "Internal"
  13.   puppetpalette "dicetemp Palette"
  14. end AusgewΣhlte_setzen
  15.  
  16. on AusgewΣhlte_sortieren
  17.   global AusgewΣhlte, AktGewΣhlt, GewΣhltWurf, WurfWerte, WurfWahl
  18.   set TempWert=getAt(GewΣhltWurf, AktGewΣhlt)
  19.   set the visible of sprite 49+AusgewΣhlte to false
  20.   repeat with i= AktGewΣhlt to AusgewΣhlte-1
  21.     setAt(GewΣhltWurf,i,(getAt(GewΣhltWurf,i+1)))
  22.     set TempWert1=62+i
  23.     set the member of sprite (49+i)=the member of sprite (49+i+1)
  24.     updatestage
  25.   end repeat  
  26.   --set the member of sprite 9 to member (56+AusgewΣhlte-1) of castlib "Internal"
  27.   set the visible of sprite 39+TempWert to true
  28.   set the visible of sprite 44+TempWert to true
  29.   setAt Wurfwahl, TempWert, 0
  30.   setAt GewΣhltWurf,AusgewΣhlte,0
  31.   set AusgewΣhlte=AusgewΣhlte-1
  32.   puppetpalette "dicetemp Palette"
  33. end AusgewΣhlte_sortieren